home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ClipArt Heaven 2
/
ClipArt Heaven 2.iso
/
utility
/
datashow
/
wordwizz.shw
< prev
next >
Wrap
Text File
|
1992-08-31
|
1KB
|
80 lines
;*********************************************************************;
; Sciptname..: WordWizz.SHW ;
; Date.......: 1st. Sep. 1992, by RMP DATA. ;
; Purpose....: Promotion for DATASHOW v. 3.0ß, as an example script. ;
;*********************************************************************;
; Note: This script could easily be turned into the game hangman.
; With a counter for number of errors and graphics...
; Starting point for word puzzles
MARK 10
; Create all variables
VARIABLE CREATE inkey TYPE KEY
VARIABLE CREATE input TYPE STRING ""
SHOWSCREEN "wordwizz.scr" TXT
DO "wordrand.shw"
goxy 30 10
write var1
goxy 30 11
write ""
goxy 30 12
write var2
goxy 30 13
write "--------"
goxy 30 15
write "--------"
goxy 30 14
READ STRING input 10
CASE STRING input result DO JUMPMARK 11
goxy 30 17
write "Wrong result..."
goxy 30 19
write "The result was:"
goxy 56 19
write result
JUMPMARK 12
MARK 11
goxy 30 17
write "CONGRATULATION!!!"
MARK 12
goxy 4 25
write "Q = Quit, Any other key = Continue with word puzzles"
READ KEY inkey
CASE KEY inkey 81 DO JUMPMARK 100 ; 'q'
CASE KEY inkey 113 DO JUMPMARK 100 ; 'Q'
VARIABLE RELEASE ALL
; Jump back to starting point
JUMPMARK 10
; End the script
MARK 100
COLOR BACKGROUND 0
CLEARSCREEN
WRITE "THANK YOU FOR USING WORD WIZZARD..."
WAIT 2
QUIT